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// 

// psap.h 

// The Foxfaoro Company Confidential 

// Copyright (c) The Foxboro Company. All Rights Reserved 
// G. Couper 8/14/9* 

// 

h 

This file is intended to compensate for not using ${lA}/header/om user.h 

and all of the things that conflict with JAVA, 

•/ 

tinclude <sys/types.h> 
/• 

typedef unsigned char u char; 
•/ 

#define MAX KSAP LEW 20 /* maximum # bytes in net. addr.*/ 

idefine MAXSSAP~I£N 2 /* Max. # of bytes in SSAP id */ 

Struct PSAP ADDR f 

u_char ssap JLd tMAX_SSAP_LEN) ; 
u_short tsap id; "~ "* 
u_short nsap~len; 

u_char tisap Jiddress [MAXJRSAPJLEH] ; 

b 

typedef struct PSAF_ADDR PSAPADDR; 
typedef FSAP_ADDR *PSAP_ADOR_PTR * 

#define PSAP_ADDR_FDRSIZE (MAX_SSAP_LEN+2+2+MAXJISAP_LEN) 
#define PSAP_SIZE sizeof ( PSAP_ADDR ) 
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// 

// ThroadedTrendServer . j ava 

// The Poxboro Company Confidential 

// Copyright (c) The Foxboro Company. All Rights Reserved 
// G. Couper, B. Canna 8/14/9G 

import java.io.*; 

import java.net.*; 

import java.util.StringTokenizer; 

public class ThreadedTrendServer extends Thread 

static // try to load the library of native methods 

1 r 

System, out .println ( " loading library ,, ) ; 
^ System. loadXibrary ( " trendm* ) 

catch (Pnsatisf ledU nkSrror e) 

System . out . println ( ■ Can ' t find library trendm"); . ) 

■ System.exit(-l) ; 

} //end of static library load 

.native int omlistcreate ( ); //creates a omlist 

native int omlistadd { String varname ) ; / /adds a point to the list 

native int omlistopen ( ) ; //opens the list 

native int omlistgetupdate ( byte b U , int len ) ; //calls dqchange without suspending 

native int omlistclose ( ) ; //closes the list 

int threadnum; 
byte update £] ; 

boolean updating « false- 

Socket sock? 
DatalnputStream sockln; 
DataOutputStream sockOut; 
String line; 

// The following members declare space used by the native methods// 

int jllstpolnts; // C library keeps the number of points on the OM list 

int jin open id; // c library stores the Open Id into here 

byte j inborn desc(] / // C library stores omjieader node in here 

byte jin~var list [] / // C library stores the open var list in here 

byte jin""net~adr tbl(] ; // C library stores the net address table in here 

byte jijTdatan ;~ // C library dqueues changes into here 

// The preceding members declare space used by the native methods// 

SOCk m Bf 

^^T t*A An\f ifli w G; 

^ update m new byte [225] ; // setup the update buffer 

public void run() // this method is started by .start on the thread class. 

r 

// get input and output streams associated w/ socket 
sockOut « new DataOutputStream ( sock. ge tOutputS tream 0 ) ; 
sockln m new DatalnputStream ( sock . ge tlnputStr earn { ) ) ; 



state 



jinjom_desc - new byte [320] ; // allocate the real space in Java for C library 

jin var list « new byte £320] ; 
jin"net~adr tbl « new byte [320] ; 
jjjTdata ""* « new byte [320] ; 
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// poll for messages from client and OM changes until client 
// disconnects (via OMBREAK command) 
while (true) 

try 

this. sleep (1000) ; // sleep for a sec so other threads can run. 
catch ( InterruptedException e ) {} 

if ( 0 < sockln. available 0 ) 

line « sockln. readXine () ; // get a line from the socket 

//print the line for checking purposes 

System. out. prin tin (threadnum + •> trendserver: received: ■ + line ) ; 

// were we asked to OPEN the list? 
if ( line . atartsWith { "OMOPEN" ) ) 
{ 

String name; 

StringTokeniser st « new S tringTokenizer ( line , • ;»"); 
//print the line for checking purposes 

System. out .println (threadnum + ■> trendserver OMOPEN: request recognized" ); 

System . out . println { threadnum + ■> trendserver OMOPEN: creating omlist. . ."} ; 
omlistcreateO ; 

// Pirst - get rid of the OMOPEN token 
name * st .nextToken 0 ; 

// Row - get each name on the OMOPEN line 
while ( st .hasMoreTokens ( ) ) 

// Should be NAME token 
name ■ st •nextToken 0 ; 

System . out . println ( threadnum + ■> trendserver OMOPEN: adding ' ■ + name + ■ 

to the list..." ); 

^ omlistadd (name) ; 

System . out . println ( threadnum + "> trendserver OMOPEN: opening the list..."); 
omlistopen ( ) ; 

. updating * true; 

} // end of OMOPEN 

// if we are asked to CLOSE the list 
else if <line.eqjials("GMCLOSE")) 

System, out .println (threadnum + "> trendserver: close command recognized. 
Closing the OM lists..."}; 

omlist close () ; 

sockOut . writfcByt es ( "0MCL0SE0K\n" ); // sends close string to socket 
updating - false; 

} // end of OMCLOSS 

// if we are asked to BREAK the connection 
else if (line, equals ("OMBREAK")) 

System. out. println (threadnum + ■> trendserver: break command recognized. 
Closing the connection. ..") ; 

omlistcloae () ; 
updating « false; 
sock . close () ; 
break; 
^ } // end of OMBREAK 
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int num chars ° omlistge tup date ( update , 225 ) ; 

if (num chars > 0) System, out .print ( threadnum +">"); 

for (int i»Q ? l<nwnehara ; i++ ) 

System. out. print ( (char) update [i] ); // sends it to the server console 
sock0ut.write( (int) update [i] )? // sends it to socket 



} // while loop for update 
} //end of run try 

catch (ZOException e) 

System . out . println ( " \r " + threadnum + ■> trendserver: exception (client disconnected). 
Continuing ") ; 

System. out. println ( threadnum + ■> trendserver: closing 0M list. . .\r") ; 

omlist close () ; 

try 

sock. close () ; 
catch ( lOException ex ) {} 
} //end of run catch 
} //end of run 
} // end of ThreadedTrendServer 
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// 

// Thread ftriCl lent .java 

// The Foxboro Company Confidential 

// Copyright (c) The Foxboro Company. All Rights Reserved 
// A. Nauman, B. Canna 8/14/9S 

import j ava . util . S tringTokenizer ; 

import java.awt.*; 

import java.awt. image.*; 

import java.net.*; 

import java.io.*; 

import java.lang.*; 

import java. applet.*; 

////////////////////////////////////////////////////////////// 

// CLASS: TrendClient 

// 

// FDNCTIOU: 

// ~ initialise the applet 

// — add new panel at the bottom of the applet frame for 
// entering points of interest and displaying their text 

// value 

// — create three "OpenPoints" for possible use 
// — create the "TrendCanvas" for displaying the trend lines 
// — create the "TCPdient" to support communications with 
// the server program offering OM data 

////////////////////////////////////////////////////////////// 
oublic class TrendClient extends Applet 

private TCPClient tclient ; 

private TrendCanvas painter; 

private Button startTrend; 

private Button stop Trend; 

private OpenPoint pointl; 

private OpenPoint point2; 

private OpenPoint point3; 

oublic void init() 

String portld » ■■; 

portXd m getParameter ( "portld" ) ; 

String hostld ■ 

hostld m getParameter ( "hostld*? ) ; 

Syst en . out .println ( "host id is ■ + hostld + « port Id is " ♦ portld ); 

setLayout (new BorderLayout 0 ) ; 

Panel p - new Panel 0 ; 

p .setLayout (new GridLayout (4,2)); 

p. add (startTrend « new Button ( "Start Trend")); 

p.addCstopTrend « new Button ("Stop Trend")); 

add("South", p) ; 

pointl m new OpenPoint ( "Y14CP3 01:PID 10.0OT", Color. yellow, p ); 
point2 m hew OpenPoint ( "Yi4CP3~07 :PXlf 18 .OUT" , Color. white, p ) ; 
point3 m new OpenPoint ("RAMP Y14CP3 xI5aD.Y14CP3.00T" , Color. green, p ); 
setBackground (Color .black) ; ~ 

painter « new TrendCanvas (pointl, points, point3) ; 
add ("Center", painter); 

r 

tClient « new TCPClient (hostld, portld, this); 
if ( tClient «* nuU ) 

System. out. println (»ttaable to create a connection to server"); 
else 

tClient . se tPriority (Thread .NORM_PRIORTTY + 2) ; 
catch (lOException e) {} 

////////////////////////////////////////////////////////////// 

// METHOD: destroy 

// 

// FUNCTION: 

// respond to Netscape exit (i.e., client applet is going 
// DOWN I ) 
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// 

////////////////////////////////////////////////////////////// 
public void destroy () 

try 

tClieat „ sSend ( " OMBREAK B ) ; 
j catch ( lOException e) {}; 

tJJttilUfl^tttlllllltltitlillitlllllllllUitllllllltttiliill 
/ / METHOD: action 

// 

// FUNCTION : 

// — respond to "STOP TREND" and "START TREND" requests from 

// the panel 

// 

////////////////////////////////////////////////////////////// 
oublic boolean action (Event evt. Object arg) 

if (arg. equals ("Start Trend")) 

String message « •"; 

points., activate () ; 
point2 . activate ( ) ; 
point3. activate () ; 

if ( pointl. active ) 

message « message + pointl* name + ■ ■; 
if ( point2. active ) 

message » message + point2.name + • ■; 
if ( point3. active ) 

« message ♦ point3.name + ■ •; 



} 



if ( message !» ) 
try 

tdient . sSend ( "OMOPEN « + message) ; 
catch ( lOException e) {}; 

) 

else if (arg. equals ("Stop Trend")) 
try 

tClient . sSend ( " CMCLOSE » ) ; 
j catch ( lOException e) {}; 

else 

return false; 
return true; 



// /////// ///////////////////////////////////////////////////// 
// METHOD: nevNVpair 

// FUNCTION: 

// — update the appropriate open point with a new value 

// received from the server offering CM data. Note that 

// all points invoked but only those that match the correct 

// name will be updated. 

// 

///✓////////////////////////////////////////////////////////// 
public void newNVpair (String name. String value) 

pointl. updateNV (name, value); 
points . updateNV (name , value); 
^ point3. updateNV (name , value); 

////////////////////////////////////////////////////////////// 
// METHOD: displayTrend 

// FUNCTIONS 

// — update the trend lines on the TrendCanvas 



— upd . _ . _ „ „_ _„ 

// — will call the TrendCanvas "brush" method to do so! 
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// 

////////////////////////////////////////////////////////////// 

public void displayTrendO 
j painter, brush 0; 

////////////////////////////////////////////////////////////// 
// METHOD: clearTrendDisplay 

// FUNCTION * 

// — clear the trend lines on the TrendCanvas 
// — zero out text values for points 

// — typically called after an OMCLOSEOK has been received 
// from the server offering OM data 

// 

////////////////////////////////////////////////////////////// 
oublic void clearTrendDisplay 0 

point! •deactivate ( ) ; 
points . deactivate ( ) j 
pointa .deactivate {) ; 

^ painter, clear ( ) ; 
} // END OF Class TrendClient 



////////////////////////////////////////////////////////////// 
// CLASS: TrendCanvas 

// 

// FUNCTION: 

// — supports the trend display 

// — contains a grid AND 

// — the ability to draw trend lines 

////////////////////////////////////////////////////////////// 
class TrendCanvas extends Canvas 

private OpenPoint pointl; 

private OpenPoint point2 ; 

private OpenPoint point3; 

private Image buff eredZmage » null; 

private boolean clearDisplay - false; 

private int max_y - 300; 

private int y_scale « 2; 

TrendCanvas ( OpenPoint pi, OpenPoint p2, OpenPoint p3 ) 

pointl m pi; 

points o p2; 

point3 m p3; 

muijiuiuiiiiiiiitiiiiiiiiitiiiiiiiiiiiniiiiiiiiiiitiitii 

// METHOD: paint 
// FUNCTION: 

// — draws the grid lines on the Trend display in a buffered 
// _ image for performance reasons 
// " — likewise for the trend lines 
// 

////////////////////////////////////////////////////////////// 
public void paint (Graphics g) 

bufferedXmage - createlmage (800, S00) ; 
Graphics bg « bufferedlmage.getGraphics 0 ; 
bg.setColor(Color.black) ; 
bg.fiURect(0, 0, 800, 500); 

// draw the X and Y axes as well as labels 
bg.setColor (Color. white) ; 
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bg.drawLine(lOO,SO,lOO,400) ; // y-axis 

bg.drawLine (100,400, (max_y*y scale) +100,400) ; // x-axis 
int diff.140* " 
for( int y«S0; y<-400 ? y+»20, diff 40 ) 

String str2 • ♦ (y+dif f ) ; 
bg.drawLine (90, y, 100, y ); 

bg. drawstring (str2, 60, (y + 5)); // y-axis labels 

bg.setFont (new Pont( "Times Roman 0 , Font. BOLD, 14)); 
bg.setColor (Color. white) ? 

bg. drawstring ("Time (seconds) », 350,450) ; // x-axis title 

// now draw the trend lines 
if ( clearOisplay — false ) 

drawTrendLine ( point 1, bg ) ; 
drawTrendLine ( point2, bg ) ; , 
^ drawTrendLine ( point3, bg ); 

dearDisplay « false; 
bg. dispose () ; 

// now draw the image on the canvas 

g.drawZmage( bufferedlmage, 0, 0, Color. black, null ); 

} 

/// ////// ///////////////////////////////////////////////////// 
// METHOD: update 

// FUNCTION: 

// — overloads default update 0 method so that no automatic 

// screen erase occurs 

// 

////////////////////////////////////////////////////////////// 
public void update ( Graphics g) 

paint (g), 

/// ////// ///////////////////////////////////////////////////// 

// METHOD: drawTrendLine 

// 

// FUNCTION* 

// — Draw a trend line. 

// — requires that data be passed to us via a circular buffer 
// — ensure that the point is •active" 
// — use the right color 

// — draw a line from the last (x,y) coordinate to the current 
// <x,y) coordinate. If beginning to draw the line, then 
// don't draw from (0,0). 

niiiiiiiittiiiiitiiiiiiiiiitiitiiiiiititiiiiiiiiiiiiiiiiiiiii 

public void drawTrendLine ( OpenPoint p, Graphics bg ) 

int numEntries; 
int bufSize; 
int atartldx; 
int i; 

if ( p.active ) 

p . updat eHistory ( ) ; 

- bufSize m p.bufSize; 
startldx * (p .numEntries >= bufSize ) ? p.startldx : 0; 
numEntries » p .numEntries -2 ; 

tog . setColor (p . color) ; 

for( i m 0; i < numEntries; i++, startldx++ ) 

^ bg.drawLine (i*y scale+101, 260-p. history ( (startIdx%bufSize) ] , 
j i*y_scale+103 , 260-p .history i ( (startldx+l) %buf Size) ) ) ; 
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} 

/// ////// ///////////////////////////////////////////////////// 

// METHOD: brush 

// 

// FUNCTION: 

// method to allow other objects to force redraw of trend lines 
// 

////////////////////////////////////////////////////////////// 
public void brush () 

^ repaint (); 

////////////////////////////////////////////////////////////// 

// METHOD: clear 

// 

// FUNCTION: 

// — method to allow other objects to force clearing of trend 
// lines 

////////////////////////////////////////////////////////////// 
public void clear () 

clearOlsplay m true; 
j repaint (); 

} // END OF Class TrendCanvas 



////////////////////////////////////////////////////////////// 
// CLASS: OpenPoint 



// 
// 

v, 

// 
// 

// 



FUNCTION: 

— contains information about each open point 

— allows other objects to activate the point (tell server 
offering CM data that the point should be scanned) 

— allows other objects tp deactivate the point 

— allows other objects to set the lastValue (value of the 
open point during the last time interval) to the current 

// value 

////////////////////////////////////////////////////////////// 

class Open Point 



{ 



public String 
public int(] 
public int 



history; 
bufSize; 



public boolean active; 

private String stringVal? 
private Panel panel; 
private TextField field; 
private Label label; 



// Name of the open point 
// (HACK — should be private) 
// Circular buffer for open point values 
// (HACK — should be private) 
// Size of circular buffer 
// (HACK should be private) 
I valid entries in 1 
'// (HACK — should be private) 
// current index of buffer containing 
// newest data 

// (HACK — should be private) 
// color to display the open point 
// (HACK — should, be private) 
//Is this point being trended? 
// (HACK — should be private) 



public int numEntries;// Number of valid entries^ in the buffer; 

public int startldx; 

public Color color; 



// Value of open point stored as a String 
// pointer to the panel 

// field in the panel to hold the point name 
// field in the panel to hold the point value 



oublic OpenPoint ( String inputName, 

inputName ; 
300; 

new int [buf Size] ; 
0; 
0; 
0; 



Color inputColor, Panel p ) 



bufSize 
history 
history [0] 
startldx 
numEntries 
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color « inputcolor . brighter () ; 

active « false; 

panel * p ; 

stringVal « «0"i 
p . a etBackpround (Color . darkGray ) ; 
p.aetForegroundCcclor) ; 
p.addCfield - new TextField (name , 4) ) ; 
p-aetBacJcground (Color. cyan) / 
j p. add (label - new Label (stringVal) ) ; 

////////////////////////////////////////////////////////////// 

// METHOD: activate 

// 

// FUNCTION: 

// sets active flag if there is a name in the NAME field 
// 

////////////////////////////////////////////////////////////// 
oublic void activate {) 

name - field.getText 0 ; 
if ( name l« ■« ) 
j active - true; 

/// ////// ///////////////////////////////////////////////////// 
// METHOD t deactivate 

// FUNCTION r 

// — unsets active flag; typically called in response to a 

// STOP TREND command 

// 

////////////////////////////////////////////////////////////// 
oublic void deactivate 0 

active - false; 
stringVal * "0"; 
startldx - 0; 
numEn tries ■ 0 ; 
^ label. aetText( stringVal ) ; 

////////////////////////////////////////////////////////////// 
// METHOD: updateBV 

// 

// FUNCTION i 

// — updates the current and last values when an incoming 
// OMOPDATE message was received from the server offering 
// OM data 

////////////////////////////////////////////////////////////// 
oublic void updateNV( String n, String v ) 

if ( active 4& name. equals (n) ) 

stringVal » vj 

label. aetText ( stringVal ) ; 

} ] 

i JJ UJJJJJ 1 1 1 1 1 1 1 1 1 1 1 1 1 1 u 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 / 1 

II METHOD: updateHistory 
// FQNCTZQN i 

// — updates the circular buffer with the latest value 
// 

////////////////////////////////////////////////////////////// 
oublic void updateHistory 0 

history lstartIdx-M-3 - Float. valueOf (stringVal) .intValue 0 ; ; 
startldx %- bufsize; 
if ( •M-numEntries >« bufsize ) 
^ numSntries « bufsize; 

// END OF Class OpenPoint 
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////////////////////////////////////////////////////////////// 

// INTERFACE: Timed 
// 

// FONCTIOH: 

// — define an "interrupt" method to be invoked on an arbitrary 
// event (in this ease it will be a clock tick as defined 

// in the "Timer- class). 

////////////////////////////////////////////////////////////// 

interface Timed 

{ 

j public void tick (Timer t) ; 



////////////////////////////////////////////////////////////// 

// CLASS: Timer 

// 

// FUNCTION: 

// — create a thread that wakes up every second (or so) 

// and invokes the tick "interrupt" call 

// 

////////////////////////////////////////////////////////////// 
class Timer extends Thread . 

private Timed target; 
private int interval; 

Tublic Timer (Timed t, int i) 
target ■ t; interval - i; 
^ setOaemon (true) ; 

rlic void run() 
while (true) 

{ try { sleep (interval) ; ) 

catch ( Interrupt edException e) {} 
target, tick (this) ; 

} 

} // END OF Class Timer 



////////////////////////////////////////////////////////////// 

// CLASS i TCPClient 

// 

// FUNCTION* 

// — enable sending of messages to the server 

// — start a timer thread that listens for OMUPDATE 

// messages 

// — update the trend display with HEW values upon receipt 

// of OMUPDATE messages OR 

// — update the trend display with the EXISTING values 

////////////////////////////////////////////////////////////// 
class TCPClient extends Thread implements Timed 

public int xcount « 0; 

private int firstupdate « 0; 

private DatalnputStream sin; 

private DataOutputStream sOut; 

private Timer t; 

private Socket a; 

private Trenddieut frame; 

oublic TCPClient (String hostld. String portld. TrendClient f) throws IOException 
frame « f ; 

s m new Socket (host Id, Integer .pars elnt (portld) ); 
sin m new DataXnputStream ( s . get Inputs tream ( ) ) ; 
sOut m new DataOutputStream(s.getOutputStreamO); 
t - new Timer (this, 1000) ; 
t. start 0; 
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/// ////// ///////////////////////////////////////////////////// 

// METHOD: tick 

// 

// FUNCTIOtf : 

// — cheek the port for incoming data 

// — if da ta a vailable, then read a line of data and check 
// for OMOPDATE or OMCLOSEOK messages. 

// 

////////////////////////////////////////////////////////////// 
nubile void tick (Timer t) 

String line « 

r 

while (aXn. available {) > 0) 
line ■ sln.readLine () ; 

// if CMCLOSB was successful, then clear out display 
if (line . equals ( ■ OMCLOSEOK- ) ) 

firstopdate - 0; 
xcount m 0; 
^ frame . clearTrendDisplay ( ) ; 

else if ( line - s tartsWi th ( -OMOPDATE • ) ) 

String value; 
String name; 

StringTokenizer st « new stringTokenizer (line , " ;«») ; 

// First - get rid of the OMOPDATE token 
name - st.nextTokenO / 

// How - get each name-value pair that is on the OMOPDATE line 
while ( st.hasMoreTokens O ) 

name * st.nexCTokenO ; // Should be NAME token 

value - st.nextTokenO / // Should be VALOE token 
^ frame . newNVpair (name , value) ; 

firstopdate - 1; 
} // if OMOPDATE 
} // end of if available 

// Only start drawing when we get the first update! ! 
if ( firstUpdate > 0 ) 

frame -displayTrend () ; 

i— ~» 

j ) catch (lOBxeeption e) {} 

////////////////////////////////////////////////////////////// 

// METHOD j aSend 

// 

// FUNCTION: 

// — send a message to the server offering OM data 

//7/////////////////////////////////////////////////////////// 
public void sSend (String message) throws lOBxeeption 

if ( message, charAt (message. length O-l) «« '\n' ) 

sOut .writeBytes (message) ; 
else sOut. writeBytes (message + *\n") ; 

} // END OF CLASS TCP Client 
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/* 

// trendmllb.c 

// The Poxboro Company Confidential 

// Copyright (c) The Foxboro Company. All Rights Reserved 
// G. Couper 8/14/9G 



/* 

include "om user.h" 

Don't use tils one. It calls ipc.h which calls rpc/ types. h 
which declares bool t in conflict with StubPreamble.h 
V 

# include <sys/ types. h> 
# include <unistd.h> 
# include <stdio.h> 

#include "paap.h" 
fcinclude •om udef .h" 
# include ■oa^udat.h" 

# include <StubPreamble,h> /* for conversion of java structs to C */ 
# include < j avaS tring . h> /* string manipulation */ 

# include ■ThreadedTrendServer.h" /* specially generated from trendmserver. java */ 

# include m am_ ecode.h" 

#def ine HO IMPORT FALSE 
#def ine HO~SUSPEHD FALSE 
#def ine SUSPEND XROS 



long 

Thxea^dTrendServer^omlistcreate ( struct BThreadedTrendServer *this ) 

HArrayOfByte* tmp * unhand ( this ) - > j in_ora_des c ; /* find the java 

buffer for the om header */ 

struct om header node* in om desc « (struct om_header_node *) unhand (tmp) ->body; /* find the 
start of the om__hea5er within~that structure */ 

HArrayOfByte* tmp5 * unhand (this ) ->jin_net adr tbl; /* find the java 

buffer */ 

struct net adr* in net adr tbl » (struct net adr *) unhand (tmpS ) ->body; /* find the start of 
. the body within the buffer */~ 



struct open var* in var list » (struct open var *) unhand (tmp2) ->body; /* find the start of 
the body within the buffer */ 

printf (" c: omlistcreate - creating the list. . An") / 



unhand {this ) ->j lis tpoints » 0; /* record that we have no point in 

the Ust */ 

in_om_desc- > task status * OM R ACCESS; 
in_om_desc->net adr tbljtr ■ Injnet_adr_tbl ; 
in_onTdesc->size net adr tbl -37 ' 
J*joa_desc->c^en~listjtr - injvar_list; 
ta_om_d«sc->curJIize_open_list~« 3? 




tmp2 » unhand ( this ) - > j in_var_list ; 



/* find the java 



} 



long 

ThreadedTrendServer omlistadd ( struct HThreadedTrendServer *this, struct Hj ava_lang_S tring 
♦Jname ) 
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/• 

This routine adds a new point name the the on list. 
V 

char CnameClOO] ; 

HArrayOfByte* txnp2 * unhand (this) ->jin_var list; /* find the Java buffer */ 

struct opeajvar* in var list - (struct open var *) unhand ( tmp2 ) ->body ; /* find the start of 
the body within the buffer */ 

ia_var_list +« unhand (this) ->jlistpoints ; /* add it in the correct place on the list */ 

/' 

javaString2CString( Jname, Cname, sizeof (Cname) ) ; 

printf (" c: omlisttadd - adding to list. Name is %s\n", Cname) ; 

strcpy(injvar_Ust->name, Cname ) ; 

in var list->var desc » NOTIFY; 
in_var~lis t- >delta « 0.1; 

unhand (this) ->jlistpoints++; /* bump the count for next time •/ 



long 

ThreadedTrendServer^omlistopen ( struct HThreadedTrendServer *this } 

HArrayOfByte *tmp « unhand (this) ->jin_om_desc; /* find the java buffer for 

the om^header */ 

struct cmjheaderjnode *in_om_desc « (struct om^headerjiode *) unhand (tmp) ->body; /* find the 
start of the""om_header within"that structure */ 

HArrayOfByte* tmp2 « unhand (this) ->jin_var_list; /* find the java buffer */ 

struct open var* in var list - (struct openvar •) unhand (tmp2 ) -»body ; /* find the start of 
the body withiS the buffer */ 

HArrayOfByte* tmp5 » unhand (this) ->jinjnet_adr_tbl; /* find the java buffer */ 

long* tmp€ * (void *) unhand (tmp5)->body; /* find the start of the 
body within the buffer */ 

long* tmp7 « (void *) *tmp6; /* find the start of the 

body within the buffer */ 

struct net adr* in net adr tbl « (void *) tmp6; /* find the start of the 

body within tSe buffer"*/ " ~ 

HArrayOfByte* tmp3 « unhand ( this ) - > j in_data ; /* find the java buffer 

struct value* in datantr « (struct value *) unhand (tmp3 ) ->body ; /* find the start of 
the body within the buffer */ 

int rtn; 
int i; 

rtn m omopen(in om desc, (int *) tunhand(this) ->jin_open_id) ; 
printf ( ■ oraopen"returns - %x\n", rtn); 

**if (( in data ptr - (struct value *)v_yarlist (8)) «« NULL) // this is the contruct that 
works in the example 

* in_data_ptr m (struct value *) v varlistO); // this one does not work, but 

should " 
♦/ 

if ( in_data_ptr -« NULL) 

printf ( « Can't allocate space to receive updates. \n" ) ; 
(void) ThreadedTrendServer^omlistclose ( this ); 

} 
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sleep (11); 

printf C-Opea id « %d unhand (this) ->jin_open_id ); 

rtn - omread (unhand (thia) ->jin open id, 3, in data ptr) ; 
if (rtn 1* GM_SUCCBSS) ~ ~ 

printf ("omread return ■ %d\n", rtn); 
j omcloae (unhand (thia) ->jin_open_id, in_om_desc, in_var_list, injiet_adr_tbl) ; 

else 

{ 

for^(i - 0; i<3; i++) 

printf (•Variable t%d] « *f\n", i , in_datajtr->uval . f point) ; 
in_data jtr++ ; 

} } 



long 

ThreadedXrendServer_omliatgetupdate ( struct HthreadedTrendServer *this, 

HArrayOfByte* OutBuf, 
^ long count ) 

HArrayOfByte* tmp2 * unhand (thia) ->jin_var_list; /* find the java buffer */ 

struct open_var» in var list « (struct open var *) unhand (tmp2) ->body ; /* find the a tart of 
the body within the buffer */ 

^ HarrayOfByte* tmp3 « unhand (this) ->jin_data; /* find the java buffer 

struct value* in data_ptr m (struct value *) unhand (trap3 ) ->body ; /* find the start of 
the body within the buffer */ 

. int rtn; 

tat i, 

int numvars; 

char *data - unhand (OutBuf) - >body ; 

int len « obj length (OutBuf ) ; 

char my data 1 100] 7 

int actual ; 

pid_t pid; 

if (len < count) 
^ actual « len; 
else 

{ 

^ actual * count; 

/* request update data */ 
pid « getpidO ; 

/* get ready for update data */ 
ntuuvara ■ 0; 
strcpy( data, ■•); 

rtn - dqchange (pid, NO_SUSPEND, (int *) tunhand(thia)«>jin_open_id, 3, in_data_ptr, 
toumvars) ; 

if (numvars > 0) 

strcpy( data, "OMUPDATE «) ; 
for^ (i » 0; i<« (numvars- 1) ; i++) 
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aprintf (my data, ■ %a »%£;•, in var list [in data_ptr- > index] .name 
, in_data_ptr- >uval . fpoint ) ; 

a treat ( data, toy data ) ; 
in_data_ptr«M- ; 

strcat( data, "\n- ) ; 
^ printf ( data) ; 

return atrlen(data) ; 
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long 

ThreadedTrendServer_omlistclo3e ( struct HThreadedTrendServer *this ) 

HArrayOfByte *tmp - unhand (this ) - > j in_om_desc ; /* find the java buffer for 

the om_headex */ 

struct om header node *in cm deac « (struct om header_node *) unhand ( trap ) ->body; /* find the 
start of the~craheaaer within~that structure */ ~ 

HArrayOfByte* tmp2 • unhand (this) ->jin_var_liat; /* find the java buffer */ 

struct open var* in var list « (struct open_var *) unhand ( t«p2 ) ->body ; /* find the start of 
the body within the buffer */ 

HArrayOfByte* tmp5 « unhand (this) ->j in net adr tbl; /* find the java buffer */ 

struct net adr* in net adr tbl m (struct net adr *7 unnandTtanpS) ->body; /* 
find the start of the Eody~witEin the buffer */ " 

int rtn; 

printf (■ c: Closing list,,. «)/ 

rtn « omclose (unhand (this) ->jin open id, in_om_desc, in_var_list, in_net_adr_tbl) ; 
printf ( " Return was %d\n", rtn) 7 ~~ 
return ( (long) rtn ) ; 
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// 

// trendmserver . j ava 

// The Foxfaoro Company Confidential 

// Copyright <c) The Foxboro Company. All Rights Reserved 
// G. Couper, B. Canna 8/14/9* 

import java.lo.*; 

import java.net.*; 

import java.util.StringTokenizer; 

import java. applet.*; 

ilic class trendmaerver extends Applet 

public static void main (String arg [] ) throws ZOException 

ServerSocket s - (ServerSocket) null; 
Socket sock; 
int i * 0; 

System. out .println ( ■ \ntrendmserver : Waiting for a socket..."); 

r 

s - new ServerSocket ( 4322 . 60 ) ; // port/socket*, seconds before timeout 

while ( true ) // this server's work is never done. 

System. out .println ("trcnfftnaerver; Waiting for a client..."); 
sock * s. accept 0; //accecpt a connection 

System, out .println ("trendmserver: Connection accepted. Spawning new thread [» + i + 
new ThreadedTrendServerC sock, i ) .start 0; 
i*+; 

}//end of while to get next client 

}//end of new socket try 
catch (ZOException e) 

System. out .println ("trendsmserver: Quitting because of error ■ "+«).; 
}//end of new socket catch 
}//end of main routine 
}//end of class trendmserver 
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